home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 41
/
041.d81
/
snag boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
58 lines
10 poke53280,.
11 poke53281,.
15 :
25 print"[147]"
35 print" [158]L O A[160]D S T A[160]R"
45 print" [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
55 print
65 print" [154]Presents"
75 print
85 print
95 print" [153] "
105 print" "
115 print" S N A G "
125 print" "
135 print" "
145 print
155 print
165 print" [159]Written By"
175 print
185 print" Nick Peck"
195 print
205 print
215 print" [150]Copyright 1987"
225 print
235 print
245 print" [129][208]ress [211][208][193][195][197] [212]o [195]ontinue"
255 print
265 print"";
266 geta$:ifa$<>" "then 266
276 print"[147]"
286 print
296 print
306 print
316 print" S N A[160]G Menu"
326 print" [152][163][163][163][163][163][163][163][163][163][163][163][163][163]"
336 print
346 print" 1[152]) [153]Run SNAG[152]."
356 print
366 print
376 print" 2[152]) [153]Quit to [158]LOADSTAR[152]."
386 print
396 print
406 print" [154][197]nter [211]election [155](1 [154][207]r 2[155]) "
416 geta$:ifa$=""then416
426 ifa$="1" then 456
436 ifa$="2"then 500
446 goto 416
456 print"[147]"chr$(142)"loading ... please wait"
466 load"snag",8,1
500 print"[145][156] [196]o you wish to quit? [152]([217] [156][207]r [206][152])"
501 geta$:ifa$=""then501
502 ifa$="y"ora$="[217]"then510
504 ifa$="n"ora$="[206]"thenprint"[145][145]":goto406
505 goto 501
510 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
511 ifer<>63 then print"[147]":end
512 load"hello connect",8,1